50000 REM ** LOAD SUBROUTINE    **
50010 :
50020 REM ** (C) 1984 BY D. SMOAK **
50030 :
50040 INPUT"[147]EXACT FILENAME";F$:IFF$=""ORLEN(F$)>14THEN50040
50050 F$(2)=F$:F$(1)=F$+".C"
50060 FORJ=1TO2:F$=F$(J)
50070 IFJ=2THENCL=PEEK(56296):POKE53280,CL:POKE53281,CL
50080 FORI=1TO LEN(F$):POKE819+I,ASC(MID$(F$,I,1)):NEXT
50090 POKE183,LEN(F$):POKE187,52:POKE188,3:POKE186,8:POKE185,1
50100 POKE780,0:SYS65493:NEXTJ
50110 REM** RETURN (IF CALLED BY GOSUB)  **